home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / health / child1b.frm < prev    next >
Text File  |  1993-07-22  |  4KB  |  142 lines
  1. VERSION 2.00
  2. Begin Form MDIChild1B 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "RESPIRATION / CIRCULATION  PATTERN"
  5.    ClientHeight    =   4020
  6.    ClientLeft      =   1470
  7.    ClientTop       =   1860
  8.    ClientWidth     =   9600
  9.    Height          =   4425
  10.    Left            =   1410
  11.    LinkTopic       =   "Form2"
  12.    MDIChild        =   -1  'True
  13.    ScaleHeight     =   4020
  14.    ScaleWidth      =   9600
  15.    Top             =   1515
  16.    Width           =   9720
  17.    Begin VBedit BEdit1B 
  18.       CellHeight      =   500
  19.       CellWidth       =   500
  20.       CombBaseLine    =   500
  21.       CombEndHeight   =   360
  22.       CombEndMarker   =   0   'False
  23.       CombHeight      =   270
  24.       FontBold        =   0   'False
  25.       FontItalic      =   0   'False
  26.       FontName        =   "Arial"
  27.       FontSize        =   24
  28.       FontStrikethru  =   0   'False
  29.       FontUnderline   =   0   'False
  30.       Height          =   855
  31.       InflateBottom   =   180
  32.       InflateLeft     =   180
  33.       InflateRight    =   180
  34.       InflateTop      =   240
  35.       Left            =   1080
  36.       TabIndex        =   4
  37.       Top             =   0
  38.       Version         =   268435458
  39.       Width           =   7695
  40.    End
  41.    Begin AniPushButton AniButton3B 
  42.       BackColor       =   &H00C0C0C0&
  43.       Cycle           =   2  '2-state 1/2 & 1/2
  44.       Height          =   480
  45.       Left            =   8880
  46.       PictDrawMode    =   1  'Autosize control
  47.       Picture         =   CHILD1B.FRX:0000
  48.       TabIndex        =   3
  49.       Top             =   240
  50.       Width           =   480
  51.    End
  52.    Begin VHedit HEdit1B 
  53.       FontBold        =   0   'False
  54.       FontItalic      =   0   'False
  55.       FontName        =   "Arial"
  56.       FontSize        =   24
  57.       FontStrikethru  =   0   'False
  58.       FontUnderline   =   0   'False
  59.       Height          =   540
  60.       InflateBottom   =   270
  61.       InflateLeft     =   270
  62.       InflateRight    =   270
  63.       InflateTop      =   270
  64.       Left            =   8880
  65.       TabIndex        =   2
  66.       Top             =   840
  67.       Version         =   268435458
  68.       Visible         =   0   'False
  69.       Width           =   495
  70.    End
  71.    Begin ListBox List2 
  72.       BackColor       =   &H00FF0000&
  73.       FontBold        =   -1  'True
  74.       FontItalic      =   0   'False
  75.       FontName        =   "Arial"
  76.       FontSize        =   12
  77.       FontStrikethru  =   0   'False
  78.       FontUnderline   =   0   'False
  79.       ForeColor       =   &H00FFFFFF&
  80.       Height          =   2880
  81.       Index           =   1
  82.       Left            =   4680
  83.       TabIndex        =   1
  84.       Top             =   1080
  85.       Width           =   4815
  86.    End
  87.    Begin ListBox List2 
  88.       BackColor       =   &H00FF0000&
  89.       FontBold        =   -1  'True
  90.       FontItalic      =   0   'False
  91.       FontName        =   "Arial"
  92.       FontSize        =   12
  93.       FontStrikethru  =   0   'False
  94.       FontUnderline   =   0   'False
  95.       ForeColor       =   &H00FFFFFF&
  96.       Height          =   2880
  97.       Index           =   0
  98.       Left            =   0
  99.       TabIndex        =   0
  100.       Top             =   1080
  101.       Width           =   4695
  102.    End
  103. End
  104. Sub AniButton3B_Click ()
  105. Select Case anibutton3B.Value
  106.     Case 2
  107.         editswap bedit1B, hedit1B, 1
  108.         hedit1B.Visible = -1
  109.         bedit1B.Visible = 0
  110.         appendflag2 = -1
  111.  
  112.     Case 1
  113.         editswap bedit1B, hedit1B, 2
  114.         hedit1B.Visible = 0
  115.         bedit1B.Visible = -1
  116.         appendflag2 = 0
  117. End Select
  118.  
  119.  
  120. End Sub
  121.  
  122. Sub List2_Click (Index As Integer)
  123. If appendflag2 Then
  124.             Select Case Index
  125.             Case 0
  126.             LIST2(1).AddItem LIST2(0).List(LIST2(0).ListIndex) + "  " + bedit1B.Text
  127.             Case 1
  128.             LIST2(1).RemoveItem LIST2(1).ListIndex
  129.  
  130.             End Select
  131. Else
  132.             Select Case Index
  133.             Case 0
  134.             LIST2(1).AddItem LIST2(0).List(LIST2(0).ListIndex)
  135.             Case 1
  136.             LIST2(1).RemoveItem LIST2(1).ListIndex
  137.             End Select
  138. End If
  139.  
  140. End Sub
  141.  
  142.